home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 165 / XENIATGM165.ISO / Goodies / Toca Race Driver Etoy / racedriver-etoy.exe / race_downloadable.dcr / Internal_6.ls < prev    next >
Encoding:
Text File  |  2002-08-16  |  1.4 KB  |  47 lines
  1. global gOrderList, gOrderSprites, player, computerPlayers, gVehicles, gVehicleCount, gPlayerVehicleNumber, gTrackNumber, background, gCameraCar, gBackTrackPlayer
  2.  
  3. on beginSprite me
  4.   global gLoopChannel, gSoundControl, gSeconds, gMinutes, gMillisecs
  5.   AI_carCount = 3
  6.   gOrderList = []
  7.   o = 1
  8.   repeat while o <= (AI_carCount + 1)
  9.     gOrderList.add(o)
  10.     o = 1 + o
  11.   end repeat
  12.   gOrderSprites = []
  13.   player = script("player script").new(background, background.pLastSprite + 1, gPlayerVehicleNumber, 1)
  14.   computerPlayers = []
  15.   lastsprite = player.lastsprite + 1
  16.   i = 1
  17.   repeat while i <= AI_carCount
  18.     if i >= gPlayerVehicleNumber then
  19.       carnum = i + 1
  20.     else
  21.       carnum = i
  22.     end if
  23.     computerPlayers.add(script("computer player script").new(background, lastsprite, carnum, i + 1))
  24.     lastsprite = computerPlayers[i].lastsprite + 1
  25.     i = 1 + i
  26.   end repeat
  27.   gVehicles = duplicate(computerPlayers)
  28.   gVehicles.addAt(1, player)
  29.   gVehicleCount = gVehicles.count
  30.   cameravehicle = gVehicles[gCameraCar]
  31.   call(#stepFrame, gVehicles)
  32.   background.draw(cameravehicle.ploc - background.halfscreenSize + (max(1, cameravehicle.pSpeed) * point(8, 6) * cameravehicle.pDirection))
  33.   call(#draw, gVehicles)
  34.   gLoopChannel = 1
  35.   gSeconds = 0
  36.   gMinutes = 0
  37.   gMillisecs = 0
  38. end
  39.  
  40. on endSprite me
  41.   global gOrderSprites
  42.   setdebugpref("sprite :" & me.spriteNum)
  43.   if listp(gOrderSprites) then
  44.     call(#update, gOrderSprites)
  45.   end if
  46. end
  47.